home *** CD-ROM | disk | FTP | other *** search
/ Bath / Bath CDROM.iso / pc / BATH.DXR / Internal_12_Zoom Out Btn.ls < prev    next >
Encoding:
Text File  |  2001-07-26  |  264 b   |  19 lines
  1. global map
  2.  
  3. on mouseDown me
  4.   set the member of sprite 17 to member("zoom_out_down")
  5.   repeat while stillDown()
  6.     tell map
  7.       zoom(1.0 / 0.98999999999999999)
  8.     end tell
  9.   end repeat
  10. end
  11.  
  12. on mouseEnter me
  13.   cursor(280)
  14. end
  15.  
  16. on mouseLeave me
  17.   cursor(-1)
  18. end
  19.